home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1999 February / Software of the Month - Ultimate Collection Shareware 258.iso / pc / Intro.dir / 00001_Script_1 next >
Text File  |  1998-12-07  |  4KB  |  168 lines

  1.  
  2. on startMovie
  3.   
  4.   global  LINECLICK 
  5.   set LINECLICK to 0
  6.   
  7.    --* open or create  file
  8.   
  9.   set STARTM to new(xtra "fileio") 
  10.   createFile STARTM, "c:\STARTM.SMC"  
  11.   
  12.   --* This declares the variables for the finger cursor. *
  13.   
  14.   global FINGER, FINGERMASK,MAGNIFY, MAGNIFY2, MAGNIFYMASK
  15.   set FINGER to the memberNum of member "Finger1"
  16.   set FINGERMASK to the memberNum of member "Finger2"
  17.   
  18.   glowClear()
  19.   
  20. end
  21.  
  22.  
  23. --* This handler hides/shows the glow images. eg: glow(5,TRUE) *
  24.  
  25. on glow WHICHSPRITE, TRUEORFALSE
  26.   set the visible of sprite WHICHSPRITE to TRUEORFALSE
  27. end glow
  28.  
  29. --* TURN OFF ALL GLOWS ON START
  30. on glowClear
  31.   repeat with i = 19 to 30
  32.     glow(i)
  33.   end repeat
  34. end
  35.  
  36. --* This handler switches the text color for a glow effect. eg.textglow("Hello",1)*
  37.  
  38. on textglow WHICHMEMBER, COLORNUMBER
  39.   set the foreColor of member WHICHMEMBER to COLORNUMBER  
  40. end textglow
  41.  
  42.  
  43. --* THIS HANDLER EXAMPLE OF DISABLEING HOTSPOTS WHEN RUNNING MIAW*
  44. --on mouseEnter
  45. --  if not count(the windowList) then
  46. --    doRollover(52)
  47. --  end if
  48. --end
  49. --
  50. --
  51. --on mouseLeave
  52. --  if not count(the windowList) then
  53. --    doRollout(52)
  54. --  end if
  55. --end
  56.  
  57.  
  58.  
  59. --* THIS HANDLER OPEN AND CENTERS A MOVIE IN A WINDOW *
  60.  
  61. on openMIAW MYWINDOW
  62.   set myRect=the rect of window MYWINDOW
  63.   set myStage=the rect of the Stage
  64.   set myWidth=(getAt(myRect,3)-getAt(myRect,1))
  65.   set myHeight=(getAt(myRect,4)-getAt(myRect,2))
  66.   set myLocH=((getAt(myStage,3)+getAt(myStage,1))/2)-(myWidth/2)
  67.   set myLocV=((getAt(myStage,2)+getAt(myStage,4))/2)-(myHeight/2)
  68.   set myNewRect=rect(myLocH,myLocV,(myLocH+myWidth),(myLocV+myHeight))
  69.   set the rect of window MYWINDOW=myNewRect
  70.   set the windowType of window MYWINDOW to 2
  71.   open window MYWINDOW
  72. end openMIAW
  73.  
  74.  
  75. --* THESE HANDLERS TURN ON A GLOW, TURN POINTER A HAND AND PLAYS A SOUND *
  76.  
  77. on doRollover NUMSPRITE,NUMSOUND
  78.   glow(numsprite,TRUE)
  79.   global finger,fingermask
  80.   cursor[finger,fingermask]  
  81.   case  NUMSOUND of      
  82.     1: puppetsound 1, "Scissors"
  83.     2: puppetsound 1, "Butane"
  84.     3: puppetsound 1, "Scissors"
  85.     4: puppetsound 1, "Scissors"
  86.   end case 
  87.   updatestage
  88. end
  89.  
  90. on doRollover3 NUMSPRITE,NUMSOUND
  91.   glow(numsprite,TRUE)
  92.   global MAGNIFY, MAGNIFYMASK
  93.   cursor [MAGNIFY,MAGNIFYMASK]
  94.   updatestage
  95.   case  NUMSOUND of
  96.       
  97.     1: puppetsound 1, "Scissors"
  98.     2: puppetsound 1, "Butane"
  99.     3: puppetsound 1, "Scissors"
  100.     4: puppetsound 1, "Scissors"
  101.   end case  
  102. end
  103.  
  104.  
  105.  
  106. on doRollover4 NUMSPRITE,NUMSOUND
  107.   glow(numsprite,TRUE)
  108.   global MAGNIFY2, MAGNIFYMASK
  109.   cursor [MAGNIFY2,MAGNIFYMASK]
  110.   updatestage
  111.   case  NUMSOUND of
  112.       
  113.     1: puppetsound 1, "Scissors"
  114.     2: puppetsound 1, "Butane"
  115.     3: puppetsound 1, "Scissors"
  116.     4: puppetsound 1, "Scissors"
  117.   end case  
  118. end
  119.  
  120.  
  121.  
  122.  
  123. --* THIS HANDLER TURNS THE SPRITE PASSED TO IT TO INVISIBLE AND RESETS THE CURSOR
  124. on doRollout numsprite
  125.   glow(numsprite,FALSE)
  126.   cursor 0
  127. end
  128.  
  129. --* PLAYS A CLICK SOUND
  130.  
  131. on doClick
  132.   puppetsound 1,"close"
  133.   updateStage
  134. end
  135.  
  136.  
  137. on doZoomout numsprite,soundwait
  138.   puppetsound 1, "close"  
  139.   if soundwait then
  140.     repeat while soundbusy (1)
  141.     end repeat
  142.     set soundwait to FALSE
  143.   end if
  144.   glow(numsprite, TRUE)
  145.   global MAGNIFY2, MAGNIFYMASK
  146.   cursor [MAGNIFY2,MAGNIFYMASK]
  147.   updatestage
  148. end
  149.  
  150. on doZoomin numsprite,soundwait
  151.   puppetsound 1, "close"  
  152.   if soundwait then
  153.     repeat while soundbusy (1)
  154.     end repeat
  155.     set soundwait to FALSE
  156.   end if
  157.   glow(numsprite, TRUE)
  158.   global MAGNIFY, MAGNIFYMASK
  159.   cursor [MAGNIFY,MAGNIFYMASK]
  160.   updatestage
  161. end
  162.  
  163.  
  164.  
  165.  
  166.  
  167.  
  168.